home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 November / Cd users extra 14.iso / pshare / util / gc / data1.cab / Example_Files / Sample6.gc < prev    next >
Encoding:
Text File  |  1998-08-20  |  288 b   |  13 lines
  1. Messagebox("This macro will demonstrate the repeat command, and Goto commands...")
  2. GoTo(":SubRoutine1")
  3. :Return1
  4. GoTo(":TheExit")
  5.  
  6. :SubRoutine1
  7. Repeat(MessageBox("This is a simple Message box that will repeated 5 times...."),5)
  8. GoTo(":Return1")
  9.  
  10. :TheExit
  11. MessageBox("Done.")
  12.  
  13.